# preview of v0.2.0
library(ggplot2)
library(colorrepel)

# original data
a <- readRDS("umap_gg.rds")
plotly::ggplotly(a)

# color_repel plus text label
b <- gg_color_repel(a, repel_label = T, nudge_x = 2, nudge_y = 2, force = 10)
b

# ggrepel texts are not supported by plotly
plotly::ggplotly(b)

# move repel text to background layer
ggplotly_background(a)

# move encircle geom to background layer too
ggplotly_background(a, repel_label = T, encircle = T)